home *** CD-ROM | disk | FTP | other *** search
/ J-Mac Electronics & Home Comics / J-Mac Electronics & Home Comics.iso / mac / J-MAC / G12F / G12_HIGA.Dxr / 00078_ýÞ¤Ÿóp.ls < prev    next >
Encoding:
Text File  |  1998-01-22  |  1020 b   |  45 lines
  1. global glocv1, gloch1, x1, x2, y1, y2, high1, haba1, ga
  2.  
  3. on pushbutton1
  4.   repeat while stillDown()
  5.     if rollOver(clickOn()) then
  6.       case ga of
  7.         "D1":
  8.           set cname to "scrld"
  9.           set the memberNum of sprite 25 to 35
  10.           testd1()
  11.         "U1":
  12.           set cname to "scrlu"
  13.           set the memberNum of sprite 24 to 33
  14.           testu1()
  15.       end case
  16.     else
  17.       set the memberNum of sprite 25 to 34
  18.       set the memberNum of sprite 24 to 32
  19.     end if
  20.     updateStage()
  21.   end repeat
  22. end
  23.  
  24. on testd1
  25.   if (glocv1 >= y1) and (glocv1 <= y2) then
  26.     set glocv1 to glocv1 + 6
  27.     if glocv1 > y2 then
  28.       set glocv1 to y2
  29.     end if
  30.     set the rect of sprite 1 to rect(gloch1, glocv1, gloch1 + haba1, glocv1 + high1)
  31.   else
  32.   end if
  33. end
  34.  
  35. on testu1
  36.   if (glocv1 >= y1) and (glocv1 <= y2) then
  37.     set glocv1 to glocv1 - 6
  38.     if glocv1 < y1 then
  39.       set glocv1 to y1
  40.     end if
  41.     set the rect of sprite 1 to rect(gloch1, glocv1, gloch1 + haba1, glocv1 + high1)
  42.   else
  43.   end if
  44. end
  45.